Public Class Form_AgentInfo

    Private frmAgentInfo As Form_AgentInfo

    Private Sub Form_AgentInfo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim uc As Frm_CSAgentInformation = New Frm_CSAgentInformation()
        Me.Panel1.Controls.Add(uc)
        Me.Panel1.CreateControl()
        uc.Dock = DockStyle.Fill
        uc.FindBool = False
        Me.Refresh()
    End Sub

    Public Function CreateInstance() As Form_AgentInfo
        If frmAgentInfo Is Nothing OrElse frmAgentInfo.IsDisposed Then
            frmAgentInfo = New Form_AgentInfo()
        End If
        Return frmAgentInfo
    End Function
End Class